home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 801_900 / DISK0859 / DISK0859.ZIP / MAC / LOAD.MAC < prev    next >
Text File  |  1987-08-12  |  420b  |  22 lines
  1. LOAD     MACRO EP=?
  2.      AIF   /&LABEL$$=/ .GO
  3. &LABEL$$ EQU   *
  4. .GO     AIF   &EP=?.EPLOC
  5.      AIF   &EP='.EPLIT
  6.      LA    1,=C'&EP..COM'
  7.      AGO   .SVC
  8. .EPLIT     LA    1,=C&EP
  9.      AGO   .SVC
  10. .EPLOC     AIF   &EPLOC=(.EPREG
  11.      LA    1,&EPLOC
  12.      AGO   .SVC
  13. .EPREG     AIF   &EPLOC=(1).SVC
  14.      LR    1,&EPLOC
  15. .SVC     SVC   25
  16.      LTR   15,15
  17.      BZ    *+26
  18.      SVC   9
  19.      DC    C'BUG MODULE NOT FOUND'
  20.      LR    15,0
  21.      LA    0,X'0210'(0,15)
  22.